
(define (make-post-request server request-uri data)
  (define uri (string-append "http://" server request-uri))
  (http-request uri #:body data))

(define (wait-a-moment!)
  (usleep 10))

(include "web-client.scm")
